Text File | 1992-06-08 | 868 b | 2 lines | [SGPA/SCPG]
on startupglobal bailoutcheckTextToolIsOnif bailout = "false" thenset lockscreen to trueset lockcursor to trueset mousecursor to busyset stylerecomposition to falseset paragraphspaceafter in points to paragraphspaceafter in points + 1end ifend startupon checkTextToolIsOnglobal bailoutput "true" into bailoutif toolmode <> "textTool" thenanswer "The TextTool must be turned on."else if currentStoryNumber() = "none" thenanswer "The text cursor must be blinking in a story or a range of paragraphs selected."elseput "false" into bailoutend ifend checkTextToolIsOnon helpput dialog (preload, 128) into thedialogput "---a\0" into item2put "---a\1" into item3put "---a\2" into item4repeat foreverget dialog(display, thedialog)if (it = 1) then exit repeatend repeatget dialog(dispose, thedialog)end help
